<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, &
ims,ime, jms,jme, kms,kme, &
its,ite, jts,jte, kts,kte &
-#if ( EM_CORE == 1 )
- ,isftcflx,iz0tlnd, &
- USTM(ims,j),CK(ims,j),CKA(ims,j), &
- CD(ims,j),CDA(ims,j) &
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific (Laura D. Fowler):
+ ,isftcflx,iz0tlnd, &
+ USTM(ims,j),CK(ims,j),CKA(ims,j), &
+ CD(ims,j),CDA(ims,j) &
+!#elseif ( EM_CORE == 1 )
+! ,isftcflx,iz0tlnd, &
+! USTM(ims,j),CK(ims,j),CKA(ims,j), &
+! CD(ims,j),CDA(ims,j) &
#endif
)
ENDDO
</font>
</pre>