<p><b>laura@ucar.edu</b> 2013-03-07 16:18:30 -0700 (Thu, 07 Mar 2013)</p><p>Reorganized pre-processing of the module so thar the variables rho,kzhout,kzmout,kzqout are now the only variables added to the argument list, relative to the original sourcecode from WRF 3.4.1. Results are unchanged relative to previous revision (tested using pgi DEBUG=true on yellow.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_bl_ysu.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_bl_ysu.F        2013-03-07 23:15:50 UTC (rev 2566)
+++ branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_bl_ysu.F        2013-03-07 23:18:30 UTC (rev 2567)
@@ -27,10 +27,13 @@
                   ids,ide, jds,jde, kds,kde,                                   &amp;
                   ims,ime, jms,jme, kms,kme,                                   &amp;
                   its,ite, jts,jte, kts,kte,                                   &amp;
-                !MPAS specific optional argument:
-                  rho,kzhout,kzmout,kzqout,                                    &amp;
                 !optional
-                  regime                                           )
+                  regime                                                       &amp;
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+                !MPAS specific optional arguments for additional diagnostics:
+                  ,rho,kzhout,kzmout,kzqout                                    &amp;
+#endif
+                 )
 !-------------------------------------------------------------------
       implicit none
 !-------------------------------------------------------------------
@@ -198,7 +201,8 @@
                                                                         dvsfc, &amp;
                                                                         dtsfc, &amp;
                                                                         dqsfc
-!MPAS specific (Laura D. Fowler):
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific optional arguments for additional diagnostics (Laura Fowler = 2013-03-06):
    real,intent(in),dimension(ims:ime,kms:kme,jms:jme),optional:: rho
    real:: rho_d
    real,intent(out),dimension(ims:ime,kms:kme,jms:jme),optional:: kzhout,kzmout,kzqout
@@ -212,6 +216,7 @@
    enddo
    enddo
 !MPAS specific end.
+#endif
 
 !
    qv2d(:,:) = 0.0
@@ -281,9 +286,12 @@
               ,dt=dt,rcl=1.0,kpbl1d=kpbl2d(ims,j)                              &amp;
               ,exch_hx=exch_h(ims,kms,j)                                       &amp;
               ,u10=u10(ims,j),v10=v10(ims,j)                                   &amp;
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific optional arguments for additional diagnostics:
               ,kzh=kzhout(ims,kms,j)                                           &amp; 
               ,kzm=kzmout(ims,kms,j)                                           &amp;
               ,kzq=kzqout(ims,kms,j)                                           &amp;
+#endif
 #if ( ! NMM_CORE == 1 )
               ,ctopo=ctopo(ims,j),ctopo2=ctopo2(ims,j)                         &amp;
 #endif
@@ -320,8 +328,12 @@
                   ims,ime, jms,jme, kms,kme,                                   &amp;
                   its,ite, jts,jte, kts,kte,                                   &amp;
                 !optional
-                  kzh,kzm,kzq,                                                 &amp;
-                  regime                                           )
+                  regime                                                       &amp;
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+                !MPAS specific optional arguments for additional diagnostics:
+                 ,kzh,kzm,kzq                                                  &amp;
+#endif
+                   )
 !-------------------------------------------------------------------
    implicit none
 !-------------------------------------------------------------------
@@ -537,9 +549,11 @@
                dsdzu,dsdzv,wm3,dthx,dqx,wspd10,ross,tem1,dsig,tvcon,conpr,     &amp;
                prfac,prfac2,phim8z
 !
-!MPAS specific begin (Laura Fowler - 2012-08-24):
+#if defined (non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific begin (Laura Fowler - 2013-03-01):
    real,intent(out),dimension(ims:ime,kms:kme),optional::kzh,kzm,kzq
 !MPAS specific end.
+#endif
 
 !----------------------------------------------------------------------
 !
@@ -639,16 +653,19 @@
      delta(i)  = 0.0
    enddo
 !
-!... ldf:
-   do k = kts,kte
-   do i = its,ite
-      xkzh(i,k)  = 0.0
-      xkzm(i,k)  = 0.0
-      xkzhl(i,k) = 0.0
-      xkzml(i,k) = 0.0
-   enddo
-   enddo
-!... end ldf.
+!MPAS specific begin (Laura Fowler - 2013-03-01): Added initialization of local
+!vertical diffusion coefficients:
+   if(present(kzh) .and. present(kzm) .and. present(kzq)) then
+      do k = kts,kte
+      do i = its,ite
+         xkzh(i,k)  = 0.0
+         xkzm(i,k)  = 0.0
+         xkzhl(i,k) = 0.0
+         xkzml(i,k) = 0.0
+      enddo
+      enddo
+   endif
+!MPAS specific end.
 !
    do k = kts,klpbl
      do i = its,ite
@@ -1300,7 +1317,7 @@
      kpbl1d(i) = kpbl(i)
    enddo
 !
-!MPAS specific begin (Laura D. Fowler - 2012-08-24)::
+!MPAS specific begin (Laura D. Fowler - 2013-03-01)::
    if(present(kzh) .and. present(kzm) .and. present(kzq)) then
       do i = its,ite
       do k = kts,kte

</font>
</pre>