include file: C_DG10_2 2
CLL   COMDECK C_DG10_2                                                     C_DG10_2.2      
                                                                           C_DG10_2.3      
CL    Set up pointers and switches for STASH processing in routines        C_DG10_2.4      
CL    DIAG10_A and DIAG10_B. Variables defined in comdeck C_DG10_1         C_DG10_2.5      
                                                                           C_DG10_2.6      
      L_UADJ_DP         = SF(201,10)                                       C_DG10_2.7      
      L_VADJ_DP         = SF(202,10)                                       C_DG10_2.8      
      L_EFF_RADIUS      = SF(203,10)                                       C_DG10_2.9      
      L_ETADOT          = SF(204,10)                                       C_DG10_2.10     
      L_PRESS_TEND      = SF(205,10)                                       C_DG10_2.11     
      L_GEOPOTENTIAL    = SF(206,10)                                       C_DG10_2.12     
      L_UADJ_T_DP       = SF(207,10)                                       C_DG10_2.13     
      L_VADJ_T_DP       = SF(208,10)                                       C_DG10_2.14     
      L_UADJ_Q_DP       = SF(209,10)                                       C_DG10_2.15     
      L_VADJ_Q_DP       = SF(210,10)                                       C_DG10_2.16     
      L_UADJ_TL_DP      = SF(211,10)                                       C_DG10_2.17     
      L_VADJ_TL_DP      = SF(212,10)                                       C_DG10_2.18     
      L_UADJ_QT_DP      = SF(213,10)                                       C_DG10_2.19     
      L_VADJ_QT_DP      = SF(214,10)                                       C_DG10_2.20     
      L_UADJ_U_DP       = SF(215,10)                                       C_DG10_2.21     
      L_VADJ_U_DP       = SF(216,10)                                       C_DG10_2.22     
      L_UADJ_V_DP       = SF(217,10)                                       C_DG10_2.23     
      L_VADJ_V_DP       = SF(218,10)                                       C_DG10_2.24     
      L_UADJ_GEOPOT_DP  = SF(219,10)                                       C_DG10_2.25     
      L_VADJ_GEOPOT_DP  = SF(220,10)                                       C_DG10_2.26     
      L_UADJ_ENERGY_DP  = SF(221,10)                                       C_DG10_2.27     
      L_VADJ_ENERGY_DP  = SF(222,10)                                       C_DG10_2.28     
                                                                           C_DG10_2.29     
      INDEX_UADJ_DP             = STINDEX(1,201,10)                        C_DG10_2.30     
      INDEX_VADJ_DP             = STINDEX(1,202,10)                        C_DG10_2.31     
      INDEX_EFF_RADIUS          = STINDEX(1,203,10)                        C_DG10_2.32     
      INDEX_ETADOT              = STINDEX(1,204,10)                        C_DG10_2.33     
      INDEX_UADJ_T_DP           = STINDEX(1,207,10)                        C_DG10_2.34     
      INDEX_VADJ_T_DP           = STINDEX(1,208,10)                        C_DG10_2.35     
      INDEX_UADJ_Q_DP           = STINDEX(1,209,10)                        C_DG10_2.36     
      INDEX_VADJ_Q_DP           = STINDEX(1,210,10)                        C_DG10_2.37     
      INDEX_UADJ_TL_DP          = STINDEX(1,211,10)                        C_DG10_2.38     
      INDEX_VADJ_TL_DP          = STINDEX(1,212,10)                        C_DG10_2.39     
      INDEX_UADJ_QT_DP          = STINDEX(1,213,10)                        C_DG10_2.40     
      INDEX_VADJ_QT_DP          = STINDEX(1,214,10)                        C_DG10_2.41     
      INDEX_UADJ_U_DP           = STINDEX(1,215,10)                        C_DG10_2.42     
      INDEX_VADJ_U_DP           = STINDEX(1,216,10)                        C_DG10_2.43     
      INDEX_UADJ_V_DP           = STINDEX(1,217,10)                        C_DG10_2.44     
      INDEX_VADJ_V_DP           = STINDEX(1,218,10)                        C_DG10_2.45     
      INDEX_UADJ_GEOPOT_DP      = STINDEX(1,219,10)                        C_DG10_2.46     
      INDEX_VADJ_GEOPOT_DP      = STINDEX(1,220,10)                        C_DG10_2.47     
      INDEX_UADJ_ENERGY_DP      = STINDEX(1,221,10)                        C_DG10_2.48     
      INDEX_VADJ_ENERGY_DP      = STINDEX(1,222,10)                        C_DG10_2.49     
                                                                           C_DG10_2.50     
      LOC_UADJ_DP        = SI(201,10)                                      C_DG10_2.51     
      LOC_VADJ_DP        = SI(202,10)                                      C_DG10_2.52     
      LOC_EFF_RADIUS     = SI(203,10)                                      C_DG10_2.53     
      LOC_ETADOT         = SI(204,10)                                      C_DG10_2.54     
      LOC_PRESS_TEND     = SI(205,10)                                      C_DG10_2.55     
      LOC_GEOPOTENTIAL   = SI(206,10)                                      C_DG10_2.56     
      LOC_UADJ_T_DP      = SI(207,10)                                      C_DG10_2.57     
      LOC_VADJ_T_DP      = SI(208,10)                                      C_DG10_2.58     
      LOC_UADJ_Q_DP      = SI(209,10)                                      C_DG10_2.59     
      LOC_VADJ_Q_DP      = SI(210,10)                                      C_DG10_2.60     
      LOC_UADJ_TL_DP     = SI(211,10)                                      C_DG10_2.61     
      LOC_VADJ_TL_DP     = SI(212,10)                                      C_DG10_2.62     
      LOC_UADJ_QT_DP     = SI(213,10)                                      C_DG10_2.63     
      LOC_VADJ_QT_DP     = SI(214,10)                                      C_DG10_2.64     
      LOC_UADJ_U_DP      = SI(215,10)                                      C_DG10_2.65     
      LOC_VADJ_U_DP      = SI(216,10)                                      C_DG10_2.66     
      LOC_UADJ_V_DP      = SI(217,10)                                      C_DG10_2.67     
      LOC_VADJ_V_DP      = SI(218,10)                                      C_DG10_2.68     
      LOC_UADJ_GEOPOT_DP = SI(219,10)                                      C_DG10_2.69     
      LOC_VADJ_GEOPOT_DP = SI(220,10)                                      C_DG10_2.70     
      LOC_UADJ_ENERGY_DP = SI(221,10)                                      C_DG10_2.71     
      LOC_VADJ_ENERGY_DP = SI(222,10)                                      C_DG10_2.72     
                                                                           C_DG10_2.73     
CLL   End of comdeck C_DG10_2                                              C_DG10_2.74