<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 "RADIATION" ARRAYS NEEDED ONLY IN THE "CAM" 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, &
- block % diag_physics, block % sfc_input)
+ block % state % time_levs(1) % state, block % diag_physics, block % sfc_input)
endif
#endif
</font>
</pre>