<p><b>laura@ucar.edu</b> 2011-09-27 17:32:52 -0600 (Tue, 27 Sep 2011)</p><p>modifications to include the initialization of the CAM longwave and shortwave 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        2011-09-27 23:32:07 UTC (rev 1035)
+++ branches/atmos_physics/src/core_nhyd_atmos/Registry        2011-09-27 23:32:52 UTC (rev 1036)
@@ -568,13 +568,14 @@
 var persistent real    swuptc     ( nCells Time               ) 1   o swuptc       diag_physics - -
 var persistent real    gsw        ( nCells Time               ) 1  ro gsw          diag_physics - -
 
+var persistent real    rthratensw ( nVertLevels nCells Time   ) 1  ro rthratensw   tend_physics - -
+
+#... RRTMG SW ONLY:
 var persistent real    swdnflx    ( nVertLevelsP2 nCells Time ) 1   o swdnflx      diag_physics - -
 var persistent real    swdnflxc   ( nVertLevelsP2 nCells Time ) 1   o swdnflxc     diag_physics - -
 var persistent real    swupflx    ( nVertLevelsP2 nCells Time ) 1   o swupflx      diag_physics - -
 var persistent real    swupflxc   ( nVertLevelsP2 nCells Time ) 1   o swupflxc     diag_physics - -
 
-var persistent real    rthratensw ( nVertLevels nCells Time   ) 1  ro rthratensw   tend_physics - -
-
 #--------------------------------------------------------------------------------------------------
 #... PARAMETERIZATION OF LONGWAVE RADIATION:
 #--------------------------------------------------------------------------------------------------
@@ -613,13 +614,45 @@
 var persistent real    olrtoa     ( nCells Time               ) 1   o olrtoa       diag_physics - -
 var persistent real    glw        ( nCells Time               ) 1  ro glw          diag_physics - -
 
+var persistent real    rthratenlw ( nVertLevels nCells Time   ) 1  ro rthratenlw   tend_physics - -
+
+#... RRTMG LW ONLY:
 #var persistent real   lwdnflx    ( nVertLevelsP2 nCells Time ) 1   o lwdnflx      diag_physics - -
 #var persistent real   lwdnflxc   ( nVertLevelsP2 nCells Time ) 1   o lwdnflxc     diag_physics - -
 #var persistent real   lwupflx    ( nVertLevelsP2 nCells Time ) 1   o lwupflx      diag_physics - -
 #var persistent real   lwupflxc   ( nVertLevelsP2 nCells Time ) 1   o lwupflxc     diag_physics - -
 
-var persistent real    rthratenlw ( nVertLevels nCells Time   ) 1  ro rthratenlw   tend_physics - -
+#--------------------------------------------------------------------------------------------------
+#... ADDITIONAL &quot;RADIATION&quot; ARRAYS NEEDED ONLY IN THE &quot;CAM&quot; LW AND SW RADIATION CODES:
+#--------------------------------------------------------------------------------------------------
 
+#INFRARED ABSORPTION:
+var persistent real absnxt  ( nVertLevels   cam_dim1      nCells Time ) 1 r absnxt diag_physics - -
+var persistent real abstot  ( nVertLevelsP1 nVertLevelsP1 nCells Time ) 1 r abstot diag_physics - -
+var persistent real emstot  ( nVertLevelsP1 nCells Time               ) 1 r emstot diag_physics - -
+
+# OZONE:
+var persistent real    pin      ( nOznLevels nCells         ) 0 ro pin       mesh  - -
+var persistent real    ozmixm   ( nMonths nOznLevels nCells ) 0 ro ozmixm    mesh  - -
+
+# AEROSOLS:
+var persistent real    m_hybi   ( nAerLevels nCells         ) 0 ro m_hybi    mesh  - -  
+
+var persistent real    m_ps     ( nCells Time               ) 2 ro m_ps      state - -
+var persistent real    dummy    ( nAerLevels nCells Time    ) 2 ro dummy     state aerosols aer_cam
+var persistent real    sul      ( nAerLevels nCells Time    ) 2 ro sul       state aerosols aer_cam
+var persistent real    sslt     ( nAerLevels nCells Time    ) 2 ro sslt      state aerosols aer_cam
+var persistent real    dust1    ( nAerLevels nCells Time    ) 2 ro dust1     state aerosols aer_cam
+var persistent real    dust2    ( nAerLevels nCells Time    ) 2 ro dust2     state aerosols aer_cam
+var persistent real    dust3    ( nAerLevels nCells Time    ) 2 ro dust3     state aerosols aer_cam
+var persistent real    dust4    ( nAerLevels nCells Time    ) 2 ro dust4     state aerosols aer_cam
+var persistent real    ocpho    ( nAerLevels nCells Time    ) 2 ro ocpho     state aerosols aer_cam
+var persistent real    bcpho    ( nAerLevels nCells Time    ) 2 ro bcpho     state aerosols aer_cam
+var persistent real    ocphi    ( nAerLevels nCells Time    ) 2 ro ocphi     state aerosols aer_cam
+var persistent real    bcphi    ( nAerLevels nCells Time    ) 2 ro bcphi     state aerosols aer_cam
+var persistent real    bg       ( nAerLevels nCells Time    ) 2 ro bg        state aerosols aer_cam
+var persistent real    volc     ( nAerLevels nCells Time    ) 2 ro volc      state aerosols aer_cam
+
 #--------------------------------------------------------------------------------------------------
 #... PARAMERIZATION OF CLOUDINESS:
 #--------------------------------------------------------------------------------------------------

Modified: branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F        2011-09-27 23:32:07 UTC (rev 1035)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F        2011-09-27 23:32:52 UTC (rev 1036)
@@ -236,7 +236,7 @@
 
          !initialization of all physics:
          call physics_init(dminfo, clock, config_do_restart, mesh, block % state % time_levs(1) % state, &amp;
-                           block % diag_physics, block % sfc_input)
+                           block % state % time_levs(1) % state, block % diag_physics, block % sfc_input)
 
       endif
 #endif

</font>
</pre>