<p><b>laura@ucar.edu</b> 2013-03-07 16:15:50 -0700 (Thu, 07 Mar 2013)</p><p>Reorganized pre-processing of the module so that the variable areaCell is now the only variable 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 yellowstone.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_sf_sfclay.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_sf_sfclay.F        2013-03-07 22:54:27 UTC (rev 2565)
+++ branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_sf_sfclay.F        2013-03-07 23:15:50 UTC (rev 2566)
@@ -24,8 +24,11 @@
                      ids,ide, jds,jde, kds,kde,                    &amp;
                      ims,ime, jms,jme, kms,kme,                    &amp;
                      its,ite, jts,jte, kts,kte,                    &amp;
-                     ustm,ck,cka,cd,cda,isftcflx,iz0tlnd,          &amp;
-                     scm_force_flux,areaCell)
+                     ustm,ck,cka,cd,cda,isftcflx,iz0tlnd,scm_force_flux &amp;
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+                    ,areaCell                                      &amp;
+#endif
+                    )
 !-------------------------------------------------------------------
       IMPLICIT NONE
 !-------------------------------------------------------------------
@@ -179,17 +182,18 @@
                                     
       REAL,     INTENT(IN   )               ::   CP,G,ROVCP,R,XLV,DX
  
-!MPAS specific (Laura D. Fowler):
-!     REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme )              , &amp;
-!               INTENT(OUT)     ::              ck,cka,cd,cda,ustm
-      real, optional, dimension( ims:ime, jms:jme )              , &amp;
-                intent(inout)     ::              ck,cka,cd,cda,ustm
-      real,intent(in),dimension(ims:ime,jms:jme),optional:: areaCell
-!MPAS specific end.
+      REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme )              , &amp;
+                INTENT(OUT)     ::              ck,cka,cd,cda,ustm
 
       INTEGER,  OPTIONAL,  INTENT(IN )   ::     ISFTCFLX, IZ0TLND
       INTEGER,  OPTIONAL,  INTENT(IN )   ::     SCM_FORCE_FLUX
 
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific (Laura D. Fowler - 2013-03-06):
+      real,intent(in),dimension(ims:ime,jms:jme),optional:: areaCell
+!MPAS specific end.
+#endif
+
 ! LOCAL VARS
 
       REAL,     DIMENSION( its:ite ) ::                       U1D, &amp;
@@ -235,7 +239,7 @@
                 ims,ime, jms,jme, kms,kme,                         &amp;
                 its,ite, jts,jte, kts,kte                          &amp;
 #if defined(non_hydrostatic_core) || defined(hydrostatic_core)
-!MPAS specific (Laura D. Fowler):
+!MPAS specific (Laura D. Fowler - 2013-03-06):
                ,isftcflx,iz0tlnd,scm_force_flux,                   &amp;
                USTM(ims,j),CK(ims,j),CKA(ims,j),                   &amp;
                CD(ims,j),CDA(ims,j),areaCell(ims,j)                &amp;
@@ -265,8 +269,13 @@
                      ims,ime, jms,jme, kms,kme,                    &amp;
                      its,ite, jts,jte, kts,kte,                    &amp;
                      isftcflx, iz0tlnd, scm_force_flux,            &amp;
-                     ustm,ck,cka,cd,cda,                           &amp;
-                     areaCell)
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific (Laura D. Fowler - 2013-03-06):
+                     ustm,ck,cka,cd,cda,areaCell                   )
+#else
+                     ustm,ck,cka,cd,cda                            )
+#endif
+
 !-------------------------------------------------------------------
       IMPLICIT NONE
 !-------------------------------------------------------------------
@@ -342,10 +351,12 @@
       INTEGER,  OPTIONAL,  INTENT(IN )   ::     ISFTCFLX, IZ0TLND
       INTEGER,  OPTIONAL,  INTENT(IN )   ::     SCM_FORCE_FLUX
 
-!MPAS specific (Laura D. Fowler): We take into accound the actual size of individual
-!grid-boxes:
+#if defined(non_hydrostatic_core) || defined(hydrostatic_core)
+!MPAS specific (Laura D. Fowler - 2013-03-06):
       real,intent(in),dimension(ims:ime),optional:: areaCell
 !MPAS specific end.
+#endif
+      
 
 ! LOCAL VARS
 

</font>
</pre>