<p><b>laura@ucar.edu</b> 2010-12-22 12:31:04 -0700 (Wed, 22 Dec 2010)</p><p>updated Registry for long- and short-wave radiation codes<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/Registry
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/Registry        2010-12-22 19:28:30 UTC (rev 663)
+++ branches/atmos_physics/src/core_nhyd_atmos/Registry        2010-12-22 19:31:04 UTC (rev 664)
@@ -475,23 +475,23 @@
 # swupflxc  :
 # rthratensw:uncoupled theta tendency due to shortwave radiation                            [K s-1]
 
-var persistent real    coszr      ( nCells Time             ) 1  ro coszr      diag_physics - -
-var persistent real    gsw        ( nCells Time             ) 1  ro gsw        diag_physics - -
-var persistent real    swcf       ( nCells Time             ) 1  ro swcf       diag_physics - -
-var persistent real    swdnb      ( nCells Time             ) 1  ro swdnb      diag_physics - -
-var persistent real    swdnbc     ( nCells Time             ) 1  ro swdnbc     diag_physics - -
-var persistent real    swdnt      ( nCells Time             ) 1  ro swdnt      diag_physics - -
-var persistent real    swdntc     ( nCells Time             ) 1  ro swdntc     diag_physics - -
-var persistent real    swupb      ( nCells Time             ) 1  ro swupb      diag_physics - -
-var persistent real    swupbc     ( nCells Time             ) 1  ro swupbc     diag_physics - -
-var persistent real    swupt      ( nCells Time             ) 1  ro swupt      diag_physics - -
-var persistent real    swuptc     ( nCells Time             ) 1  ro swuptc     diag_physics - -
-var persistent real    swdnflx    ( nCells Time             ) 1  ro swdnflx    diag_physics - -
-var persistent real    swdnflxc   ( nCells Time             ) 1  ro swdnflxc   diag_physics - -
-var persistent real    swupflx    ( nCells Time             ) 1  ro swupflx    diag_physics - -
-var persistent real    swupflxc   ( nCells Time             ) 1  ro swupflxc   diag_physics - -
+var persistent real    coszr      ( nCells Time             ) 1  ro coszr          diag_physics - -
+var persistent real    gsw        ( nCells Time             ) 1  ro gsw            diag_physics - -
+var persistent real    swcf       ( nCells Time             ) 1  ro swcf           diag_physics - -
+var persistent real    swdnb      ( nCells Time             ) 1  ro swdnb          diag_physics - -
+var persistent real    swdnbc     ( nCells Time             ) 1  ro swdnbc         diag_physics - -
+var persistent real    swdnt      ( nCells Time             ) 1  ro swdnt          diag_physics - -
+var persistent real    swdntc     ( nCells Time             ) 1  ro swdntc         diag_physics - -
+var persistent real    swupb      ( nCells Time             ) 1  ro swupb          diag_physics - -
+var persistent real    swupbc     ( nCells Time             ) 1  ro swupbc         diag_physics - -
+var persistent real    swupt      ( nCells Time             ) 1  ro swupt          diag_physics - -
+var persistent real    swuptc     ( nCells Time             ) 1  ro swuptc         diag_physics - -
+var persistent real    swdnflx    ( nCells Time             ) 1  ro swdnflx        diag_physics - -
+var persistent real    swdnflxc   ( nCells Time             ) 1  ro swdnflxc       diag_physics - -
+var persistent real    swupflx    ( nCells Time             ) 1  ro swupflx        diag_physics - -
+var persistent real    swupflxc   ( nCells Time             ) 1  ro swupflxc       diag_physics - -
 
-var persistent real    rthratensw ( nVertLevels nCells Time ) 1  ro rthratensw tend_physics - -
+var persistent real    rthratensw ( nVertLevels nCells Time ) 1  ro rthratensw     tend_physics - -
 
 #--------------------------------------------------------------------------------------------------
 #... PARAMETERIZATION OF LONGWAVE RADIATION:
@@ -514,23 +514,23 @@
 # olrtoa    :outgoing longwave radiation at top-of-the-atmosphere                           [W m-2]
 # rthratenlw:uncoupled theta tendency due to longwave radiation                             [K s-1]
 
-var persistent real    glw        ( nCells Time             ) 1   o glw        diag_physics - -
-var persistent real    lwcf       ( nCells Time             ) 1   o lwcf       diag_physics - -
-var persistent real    lwdnb      ( nCells Time             ) 1   o lwdnb      diag_physics - -
-var persistent real    lwdnbc     ( nCells Time             ) 1   o lwdnbc     diag_physics - -
-var persistent real    lwdnt      ( nCells Time             ) 1   o lwdnt      diag_physics - -
-var persistent real    lwdntc     ( nCells Time             ) 1   o lwdntc     diag_physics - -
-var persistent real    lwupb      ( nCells Time             ) 1   o lwupb      diag_physics - -
-var persistent real    lwupbc     ( nCells Time             ) 1   o lwupbc     diag_physics - -
-var persistent real    lwupt      ( nCells Time             ) 1   o lwupt      diag_physics - -
-var persistent real    lwuptc     ( nCells Time             ) 1   o lwuptc     diag_physics - -
-var persistent real    lwdnflx    ( nCells Time             ) 1   o lwdnflx    diag_physics - -
-var persistent real    lwdnflxc   ( nCells Time             ) 1   o lwdnflxc   diag_physics - -
-var persistent real    lwupflx    ( nCells Time             ) 1   o lwupflx    diag_physics - -
-var persistent real    lwupflxc   ( nCells Time             ) 1   o lwupflxc   diag_physics - -
-var persistent real    olrtoa     ( nCells Time             ) 1   o olrtoa     diag_physics - -
+var persistent real    glw        ( nCells Time             ) 1   o glw            diag_physics - -
+var persistent real    lwcf       ( nCells Time             ) 1   o lwcf           diag_physics - -
+var persistent real    lwdnb      ( nCells Time             ) 1   o lwdnb          diag_physics - -
+var persistent real    lwdnbc     ( nCells Time             ) 1   o lwdnbc         diag_physics - -
+var persistent real    lwdnt      ( nCells Time             ) 1   o lwdnt          diag_physics - -
+var persistent real    lwdntc     ( nCells Time             ) 1   o lwdntc         diag_physics - -
+var persistent real    lwupb      ( nCells Time             ) 1   o lwupb          diag_physics - -
+var persistent real    lwupbc     ( nCells Time             ) 1   o lwupbc         diag_physics - -
+var persistent real    lwupt      ( nCells Time             ) 1   o lwupt          diag_physics - -
+var persistent real    lwuptc     ( nCells Time             ) 1   o lwuptc         diag_physics - -
+var persistent real    lwdnflx    ( nCells Time             ) 1   o lwdnflx        diag_physics - -
+var persistent real    lwdnflxc   ( nCells Time             ) 1   o lwdnflxc       diag_physics - -
+var persistent real    lwupflx    ( nCells Time             ) 1   o lwupflx        diag_physics - -
+var persistent real    lwupflxc   ( nCells Time             ) 1   o lwupflxc       diag_physics - -
+var persistent real    olrtoa     ( nCells Time             ) 1   o olrtoa         diag_physics - -
 
-var persistent real    rthratenlw ( nVertLevels nCells Time ) 1  ro rthratenlw tend_physics - -
+var persistent real    rthratenlw ( nVertLevels nCells Time ) 1  ro rthratenlw     tend_physics - -
 
 #--------------------------------------------------------------------------------------------------
 #... PARAMERIZATION OF CLOUDINESS:
@@ -538,25 +538,25 @@
 
 # cldfrac   :cloud fraction                                                                     [-]
 
-var persistent real    cldfrac    ( nVertLevels nCells Time ) 1   o cldfrac    diag_physics - -
+var persistent real    cldfrac    ( nVertLevels nCells Time ) 1   o cldfrac        diag_physics - -
 
 #--------------------------------------------------------------------------------------------------
 #... SURFACE CHARACTERISTICS THAT SHOULD BE GIVEN AS INPUTS.
 #--------------------------------------------------------------------------------------------------
 
-# albedo    :surface albedo                                                                     [-]
-# emiss     :land surface emissivity                                                            [-]
-# snow      :snow water equivalent                                                         [kg m-2]
-# tsk       :surface-skin temperature                                                           [K]
+# sfc_albedo     :surface albedo                                                                [-]
+# sfc_emissivity :land surface emissivity                                                       [-]
+# snow           :snow water equivalent                                                    [kg m-2]
+# tsk            :surface-skin temperature                                                      [K]
 
-# xland     :land mask    (1 for land; 2 for water)                                             [-]
-# xice      :ice mask                                                                           [-]
+# xland          :land mask    (1 for land; 2 for water)                                        [-]
+# xice           :ice mask                                                                      [-]
 
-var persistent real    snow       ( nCells Time             ) 1  ro snow       diag_physics - -
-var persistent real    emiss      ( nCells Time             ) 1  ro emiss      diag_physics - -
-var persistent real    sfc_albedo ( nCells Time             ) 1  ro sfc_albedo diag_physics - -
-var persistent real    tsk        ( nCells Time             ) 1  ro tsk        diag_physics - -
-var persistent real    xice       ( nCells Time             ) 1  r  xice       diag_physics - -
-var persistent real    xland      ( nCells Time             ) 1  r  xland      diag_physics - -
+var persistent real    snow           ( nCells Time         ) 1  ro snow           diag_physics - -
+var persistent real    sfc_emissivity ( nCells Time         ) 1  ro sfc_emissivity diag_physics - -
+var persistent real    sfc_albedo     ( nCells Time         ) 1  ro sfc_albedo     diag_physics - -
+var persistent real    tsk            ( nCells Time         ) 1  ro tsk            diag_physics - -
+var persistent real    xice           ( nCells Time         ) 1  r  xice           diag_physics - -
+var persistent real    xland          ( nCells Time         ) 1  r  xland          diag_physics - -
 
 #==================================================================================================

</font>
</pre>