<p><b>laura@ucar.edu</b> 2011-04-08 16:38:04 -0600 (Fri, 08 Apr 2011)</p><p>updated Registry. added call tp physics_update<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-04-08 22:35:14 UTC (rev 790)
+++ branches/atmos_physics/src/core_nhyd_atmos/Registry 2011-04-08 22:38:04 UTC (rev 791)
@@ -166,18 +166,18 @@
var persistent real qni ( nVertLevels nCells Time ) 2 iro qni state scalars number
# Tendency variables
-var persistent real tend_u ( nVertLevels nEdges Time ) 1 - u tend - -
-var persistent real tend_w ( nVertLevelsP1 nCells Time ) 1 - w tend - -
-var persistent real tend_rho ( nVertLevels nCells Time ) 1 - rho tend - -
-var persistent real tend_theta ( nVertLevels nCells Time ) 1 - theta tend - -
-var persistent real tend_qv ( nVertLevels nCells Time ) 1 - qv tend scalars moist
-var persistent real tend_qc ( nVertLevels nCells Time ) 1 - qc tend scalars moist
-var persistent real tend_qr ( nVertLevels nCells Time ) 1 - qr tend scalars moist
-var persistent real tend_qi ( nVertLevels nCells Time ) 1 r qi tend scalars moist
-var persistent real tend_qs ( nVertLevels nCells Time ) 1 r qs tend scalars moist
-var persistent real tend_qg ( nVertLevels nCells Time ) 1 r qg tend scalars moist
-var persistent real tend_qnr ( nVertLevels nCells Time ) 1 r qnr tend scalars number
-var persistent real tend_qni ( nVertLevels nCells Time ) 1 r qni tend scalars number
+var persistent real tend_u ( nVertLevels nEdges Time ) 1 o u tend - -
+var persistent real tend_w ( nVertLevelsP1 nCells Time ) 1 o w tend - -
+var persistent real tend_rho ( nVertLevels nCells Time ) 1 o rho tend - -
+var persistent real tend_theta ( nVertLevels nCells Time ) 1 o theta tend - -
+var persistent real tend_qv ( nVertLevels nCells Time ) 1 o qv tend scalars moist
+var persistent real tend_qc ( nVertLevels nCells Time ) 1 o qc tend scalars moist
+var persistent real tend_qr ( nVertLevels nCells Time ) 1 o qr tend scalars moist
+var persistent real tend_qi ( nVertLevels nCells Time ) 1 o qi tend scalars moist
+var persistent real tend_qs ( nVertLevels nCells Time ) 1 o qs tend scalars moist
+var persistent real tend_qg ( nVertLevels nCells Time ) 1 o qg tend scalars moist
+var persistent real tend_qnr ( nVertLevels nCells Time ) 1 o qnr tend scalars number
+var persistent real tend_qni ( nVertLevels nCells Time ) 1 o qni tend scalars number
var persistent real rt_diabatic_tend ( nVertLevels nCells Time ) 1 r rt_diabatic_tend tend - -
# state variables diagnosed from prognostic state
@@ -343,9 +343,9 @@
#... PARAMETERIZATION OF CONVECTION:
#--------------------------------------------------------------------------------------------------
-# nca : relaxation time for KF parameterization of convection (s)
# cubot : lowest level of convection (-)
# cutop : highest level of convection (-)
+# cuprec : convective precipitation rate (mm/s)
# rainc : accumulated time-step convective precipitation (mm)
# raincv : time-step convective precipitation (mm)
# rthcuten : tendency of potential temperature due to cumulus convection (K s-1)
@@ -354,25 +354,28 @@
# rqrcuten : tendency of rain mixing ratio due to cumulus convection (kg/kg s-1)
# rqicuten : tendency of cloud ice mixing ratio due to cumulus convection (kg/kg s-1)
# rqscuten : tendency of snow mixing ratio due to cumulus convection (kg/kg s-1)
-# wavg : average vertical velocity (KF scheme only) (m s-1)
-var persistent real nca ( nCells Time ) 1 ro nca diag_physics - -
-var persistent real cubot ( nCells Time ) 1 ro cubot diag_physics - -
-var persistent real cutop ( nCells Time ) 1 ro cutop diag_physics - -
+var persistent real cubot ( nCells Time ) 1 ro cubot diag_physics - -
+var persistent real cutop ( nCells Time ) 1 ro cutop diag_physics - -
+var persistent real cuprec ( nCells Time ) 1 ro cuprec diag_physics - -
+var persistent real rainc ( nCells Time ) 1 ro rainc diag_physics - -
+var persistent real raincv ( nCells Time ) 1 ro raincv diag_physics - -
+var persistent real iraincv ( nCells Time ) 1 o iraincv diag_physics - -
-# PRECIPITATION:
-var persistent real rainc ( nCells Time ) 1 ro rainc diag_physics - -
-var persistent real raincv ( nCells Time ) 1 ro raincv diag_physics - -
-var persistent real w0avg ( nVertLevels nCells Time ) 1 ro w0avg diag_physics - -
+var persistent real rthcuten ( nVertLevels nCells Time ) 1 ro rthcuten tend_physics - -
+var persistent real rqvcuten ( nVertLevels nCells Time ) 1 ro rqvcuten tend_physics - -
+var persistent real rqccuten ( nVertLevels nCells Time ) 1 ro rqccuten tend_physics - -
+var persistent real rqrcuten ( nVertLevels nCells Time ) 1 ro rqrcuten tend_physics - -
+var persistent real rqicuten ( nVertLevels nCells Time ) 1 ro rqicuten tend_physics - -
+var persistent real rqscuten ( nVertLevels nCells Time ) 1 ro rqscuten tend_physics - -
-# TENDENCIES:
-var persistent real rthcuten ( nVertLevels nCells Time ) 1 ro rthcuten tend_physics - -
-var persistent real rqvcuten ( nVertLevels nCells Time ) 1 ro rqvcuten tend_physics - -
-var persistent real rqccuten ( nVertLevels nCells Time ) 1 ro rqccuten tend_physics - -
-var persistent real rqrcuten ( nVertLevels nCells Time ) 1 ro rqrcuten tend_physics - -
-var persistent real rqicuten ( nVertLevels nCells Time ) 1 ro rqicuten tend_physics - -
-var persistent real rqscuten ( nVertLevels nCells Time ) 1 ro rqscuten tend_physics - -
+#... KAIN_FRITSCH ONLY:
+# nca : relaxation time for KF parameterization of convection (s)
+# wavg0 : average vertical velocity (KF scheme only) (m s-1)
+var persistent real nca ( nCells Time ) 1 ro nca diag_physics - -
+var persistent real w0avg ( nVertLevels nCells Time ) 1 ro w0avg diag_physics - -
+
#--------------------------------------------------------------------------------------------------
#... PARAMETERIZATION OF PLANETARY BOUNDARY LAYER PROCESSES:
#--------------------------------------------------------------------------------------------------
@@ -627,6 +630,7 @@
# snow :snow water equivalent [kg m-2]
# sst :sea-surface temperature [K]
# snowc :flag indicating snow coverage (1 for snow cover) [-]
+# ter :terrain height [-]
# tmn :soil temperature at lower boundary [K]
# vegfra :vegetation fraction [-]
# xice :sea-ice mask [-]
@@ -643,7 +647,7 @@
var persistent real shdmin ( nCells ) 0 iro shdmin sfc_input - -
var persistent real shdmax ( nCells ) 0 iro shdmax sfc_input - -
var persistent real snoalb ( nCells ) 0 iro snoalb sfc_input - -
-
+var persistent real ter ( nCells ) 0 io ter sfc_input - -
var persistent real albedo12m ( nMonths nCells ) 0 io albedo12m sfc_input - -
var persistent real greenfrac ( nMonths nCells ) 0 io greenfrac sfc_input - -
Modified: branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F 2011-04-08 22:35:14 UTC (rev 790)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F 2011-04-08 22:38:04 UTC (rev 791)
@@ -215,6 +215,7 @@
use module_physics_control
use module_physics_driver
use module_physics_manager
+ use module_physics_update
#endif
implicit none
@@ -230,7 +231,13 @@
if(l_physics) call physics_driver(domain,itimestep)
endif
#endif
+
call timestep(domain, dt, itimestep)
+
+#ifdef DO_PHYSICS
+ !update physics diagnostics at the end of dynamic time-step:
+ if(moist_physics) call physics_update(domain,dt)
+#endif
end subroutine mpas_timestep
</font>
</pre>