<p><b>laura@ucar.edu</b> 2010-12-21 15:48:21 -0700 (Tue, 21 Dec 2010)</p><p>driver_cloudiness provides information on the cloud fraction as a function of total condensates<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_physics/module_driver_cloudiness.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_cloudiness.F                                (rev 0)
+++ branches/atmos_physics/src/core_physics/module_driver_cloudiness.F        2010-12-21 22:48:21 UTC (rev 655)
@@ -0,0 +1,99 @@
+!=============================================================================================
+ module module_driver_cloudiness
+ use grid_types
+
+ use module_physics_vars

+ implicit none
+ private
+ public:: allocate_cloudiness,   &amp;
+          deallocate_cloudiness, &amp;
+          driver_cloudiness
+
+ integer,private:: i,j,k
+
+ contains
+
+!=============================================================================================
+ subroutine allocate_cloudiness
+!=============================================================================================
+
+ if(.not.allocated(cldfrac_p) ) allocate(cldfrac_p(ims:ime,kms:kme,jms:jme) )
+
+ end subroutine allocate_cloudiness
+
+!=============================================================================================
+ subroutine deallocate_cloudiness
+!=============================================================================================
+
+ if(allocated(cldfrac_p) ) deallocate(cldfrac_p )
+
+ end subroutine deallocate_cloudiness
+
+!=============================================================================================
+ subroutine cloudiness_from_MPAS(diag_physics)
+!=============================================================================================
+
+!inout arguments:
+ type(diag_physics_type),intent(inout):: diag_physics
+
+!---------------------------------------------------------------------------------------------
+
+ do j = jts,jte
+ do k = kts,kte
+ do i = its,ite
+    cldfrac_p(i,k,j) = diag_physics % cldfrac % array(i,k)
+ enddo
+ enddo
+ enddo
+
+ end subroutine cloudiness_from_MPAS
+
+!=============================================================================================
+ subroutine cloudiness_to_MPAS(diag_physics)
+!=============================================================================================
+
+!inout arguments:
+ type(diag_physics_type),intent(inout):: diag_physics
+
+!---------------------------------------------------------------------------------------------
+
+ do j = jts,jte
+ do k = kts,kte
+ do i = its,ite
+    diag_physics % cldfrac % array(i,k) = cldfrac_p(i,k,j)
+ enddo
+ enddo
+ enddo
+
+ end subroutine cloudiness_to_MPAS
+
+!=============================================================================================
+ subroutine driver_cloudiness(diag_physics)
+!=============================================================================================
+
+!inout arguments:
+ type(diag_physics_type),intent(inout):: diag_physics
+
+!---------------------------------------------------------------------------------------------
+
+
+!copy all MPAS arrays to rectangular grid:
+ call cloudiness_from_MPAS(diag_physics)
+
+ do j = jts,jte
+ do k = kts,kte
+ do i = its,ite
+    cldfrac_p(i,k,j) = 0.
+ enddo
+ enddo
+ enddo
+
+!copy all arrays back to MPAS geodesic grid:
+ call cloudiness_to_MPAS(diag_physics)
+
+ end subroutine driver_cloudiness
+
+!=============================================================================================
+ end module module_driver_cloudiness
+!=============================================================================================

</font>
</pre>