<p><b>laura@ucar.edu</b> 2011-06-02 10:49:02 -0600 (Thu, 02 Jun 2011)</p><p>moved all sfc_physics arrays to diag_physics arrays to limit the number of physics classes.<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-06-02 16:41:17 UTC (rev 867)
+++ branches/atmos_physics/src/core_nhyd_atmos/Registry        2011-06-02 16:49:02 UTC (rev 868)
@@ -565,6 +565,7 @@
#... PARAMETERIZATION OF LAND-SURFACE SCHEME:
#--------------------------------------------------------------------------------------------------
+# xland :land mask (1 for land; 2 for water) [-]
# acsnom :accumulated melted snow [kg m-2]
# acsnow :accumulated snow [kg m-2]
# canwat :canopy water [kg m-2]
@@ -575,6 +576,10 @@
# potevp :potential evaporation [W m-2]
# qz0 :specific humidity at znt [kg kg-1]
# rib :??
+# sfc_albbck :background albedo [-]
+# sfc_albedo :surface albedo [-]
+# sfc_embck :background emissivity [-]
+# sfc_emiss :surface emissivity [-]
# sfcrunoff :surface runoff [m s-1]
# smstav :moisture availability [-]
# smstot :total moisture [m3 m-3]
@@ -583,6 +588,7 @@
# snowh :physical snow depth [m]
# thc :thermal inertia [Cal cm-1 K-1 s-0.5]
# udrunoff :sub-surface runoff [m s-1]
+# xicem :ice mask from previous time-step [-]
# z0 :background roughness length [m]
# zs :depth of centers of soil layers [m]
@@ -596,6 +602,10 @@
var persistent real potevp ( nCells Time ) 1 ro potevp diag_physics - -
var persistent real qz0 ( nCells Time ) 1 ro qz0 diag_physics - -
var persistent real rib ( nCells Time ) 1 ro rib diag_physics - -
+var persistent real sfc_albbck ( nCells Time ) 1 ro sfc_albbck diag_physics - -
+var persistent real sfc_albedo ( nCells Time ) 1 ro sfc_albedo diag_physics - -
+var persistent real sfc_emiss ( nCells Time ) 1 ro sfc_emiss diag_physics - -
+var persistent real sfc_emibck ( nCells Time ) 1 ro sfc_emibck diag_physics - -
var persistent real sfcrunoff ( nCells Time ) 1 ro sfcrunoff diag_physics - -
var persistent real smstav ( nCells Time ) 1 ro smstav diag_physics - -
var persistent real smstot ( nCells Time ) 1 ro smstot diag_physics - -
@@ -604,6 +614,8 @@
var persistent real snowh ( nCells Time ) 1 ro snowh diag_physics - -
var persistent real thc ( nCells Time ) 1 ro thc diag_physics - -
var persistent real udrunoff ( nCells Time ) 1 ro udrunoff diag_physics - -
+var persistent real xicem ( nCells Time ) 1 ro xicem diag_physics - -
+var persistent real xland ( nCells Time ) 1 ro xland diag_physics - -
var persistent real z0 ( nCells Time ) 1 ro z0 diag_physics - -
var persistent real zs ( nCells Time ) 1 ro zs diag_physics - -
@@ -658,27 +670,4 @@
var persistent real smois ( nSoilLevels nCells Time ) 1 iro smois sfc_input - -
var persistent real tslb ( nSoilLevels nCells Time ) 1 iro tslb sfc_input - -
-#--------------------------------------------------------------------------------------------------
-#... OTHER SURFACE CHARACTERISTICS INITIALIZED USING SFC FIELDS FROM GRID.NC:
-#--------------------------------------------------------------------------------------------------
-
-# sfc_albbck :background albedo [-]
-# sfc_embck :background emissivity [-]
-
-# sfc_albedo :surface albedo [-]
-# sfc_emiss :surface emissivity [-]
-# tsk :surface-skin temperature [K]
-# xland :land mask (1 for land; 2 for water) [-]
-# xicem :ice mask from previous time-step [-]
-
-var persistent real sfc_albbck ( nCells Time ) 1 ro sfc_albbck sfc_physics - -
-var persistent real sfc_emibck ( nCells Time ) 1 ro sfc_emibck sfc_physics - -
-var persistent real xicem ( nCells Time ) 1 ro xicem sfc_physics - -
-var persistent real xland ( nCells Time ) 1 ro xland sfc_physics - -
-
-var persistent real sfc_albedo ( nCells Time ) 1 ro sfc_albedo diag_physics - -
-var persistent real sfc_emiss ( nCells Time ) 1 ro sfc_emiss diag_physics - -
-var persistent real tsk ( nCells Time ) 1 ro tsk diag_physics - -
-
-
#==================================================================================================
Modified: branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F        2011-06-02 16:41:17 UTC (rev 867)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F        2011-06-02 16:49:02 UTC (rev 868)
@@ -105,7 +105,7 @@
!initialization of all physics:
call physics_init(dminfo, config_do_restart, mesh, block % state % time_levs(1) % state, &
- block % diag_physics, block % sfc_physics, block % sfc_input)
+ block % diag_physics, block % sfc_input)
endif
#endif
</font>
</pre>