<p><b>laura@ucar.edu</b> 2011-05-09 11:47:48 -0600 (Mon, 09 May 2011)</p><p>added MPAS pre-compiler directives for optional arguments<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_sf_sfclay.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_sf_sfclay.F        2011-05-09 17:33:53 UTC (rev 817)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_sf_sfclay.F        2011-05-09 17:47:48 UTC (rev 818)
@@ -228,10 +228,15 @@
                 ids,ide, jds,jde, kds,kde,                         &amp;
                 ims,ime, jms,jme, kms,kme,                         &amp;
                 its,ite, jts,jte, kts,kte                          &amp;
-#if ( EM_CORE == 1 )
-                ,isftcflx,iz0tlnd,                                 &amp;
-                USTM(ims,j),CK(ims,j),CKA(ims,j),                  &amp;
-                CD(ims,j),CDA(ims,j)                               &amp;
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific (Laura D. Fowler):
+               ,isftcflx,iz0tlnd,                                  &amp;
+               USTM(ims,j),CK(ims,j),CKA(ims,j),                   &amp;
+               CD(ims,j),CDA(ims,j)                                &amp;
+!#elseif ( EM_CORE == 1 )
+!               ,isftcflx,iz0tlnd,                                 &amp;
+!               USTM(ims,j),CK(ims,j),CKA(ims,j),                  &amp;
+!               CD(ims,j),CDA(ims,j)                               &amp;
 #endif
                                                                    )
       ENDDO

</font>
</pre>