<p><b>laura@ucar.edu</b> 2011-01-04 10:05:49 -0700 (Tue, 04 Jan 2011)</p><p>Minor modifications<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_driver_microphysics.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_microphysics.F        2011-01-04 17:03:02 UTC (rev 668)
+++ branches/atmos_physics/src/core_physics/module_driver_microphysics.F        2011-01-04 17:05:49 UTC (rev 669)
@@ -107,7 +107,9 @@
  microp_select: select case(microp_scheme)
 
     case (&quot;thompson&quot;)
+       write(0,*) '--- begin subroutine thompson_init:'
        call thompson_init
+       write(0,*) '--- end subroutine thompson_init'
 
     case default
 

Modified: branches/atmos_physics/src/core_physics/module_driver_radiation_lw.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_radiation_lw.F        2011-01-04 17:03:02 UTC (rev 668)
+++ branches/atmos_physics/src/core_physics/module_driver_radiation_lw.F        2011-01-04 17:05:49 UTC (rev 669)
@@ -173,7 +173,7 @@
 
 !---------------------------------------------------------------------------------------------
 
- write(0,*) '    begin radiation_lw initialization:'
+ write(0,*) '--- begin radiation_lw initialization:'
 
 !call to longwave radiation scheme:
  radiation_lw_select: select case (trim(radt_lw_scheme))
@@ -187,7 +187,7 @@
 
  end select radiation_lw_select
 
- write(0,*) '    end radiation_lw initialization'
+ write(0,*) '--- end radiation_lw initialization'
 
  end subroutine init_radiation_lw
 

Modified: branches/atmos_physics/src/core_physics/module_driver_radiation_sw.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_radiation_sw.F        2011-01-04 17:03:02 UTC (rev 668)
+++ branches/atmos_physics/src/core_physics/module_driver_radiation_sw.F        2011-01-04 17:05:49 UTC (rev 669)
@@ -187,7 +187,7 @@
 
 !---------------------------------------------------------------------------------------------
 
- write(0,*) '    begin radiation_sw initialization:'
+ write(0,*) '--- begin radiation_sw initialization:'
 
 !call to shortwave radiation scheme:
  radiation_sw_select: select case (trim(radt_sw_scheme))
@@ -201,7 +201,7 @@
 
  end select radiation_sw_select
 
- write(0,*) '    end radiation_sw initialization:'
+ write(0,*) '--- end radiation_sw initialization:'
 
  end subroutine init_radiation_sw
 

Modified: branches/atmos_physics/src/core_physics/module_physics_manager.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_manager.F        2011-01-04 17:03:02 UTC (rev 668)
+++ branches/atmos_physics/src/core_physics/module_physics_manager.F        2011-01-04 17:05:49 UTC (rev 669)
@@ -148,6 +148,7 @@
 
  if(.not.allocated(u_p)    )  allocate(u_p(ims:ime,kms:kme,jms:jme)     )
  if(.not.allocated(v_p)    )  allocate(v_p(ims:ime,kms:kme,jms:jme)     )
+ if(.not.allocated(zz_p)   )  allocate(zz_p(ims:ime,kms:kme,jms:jme)    )
  if(.not.allocated(pres_p) )  allocate(pres_p(ims:ime,kms:kme,jms:jme)  )
  if(.not.allocated(pi_p)   )  allocate(pi_p(ims:ime,kms:kme,jms:jme)    )
  if(.not.allocated(z_p)    )  allocate(z_p(ims:ime,kms:kme,jms:jme)     )
@@ -212,6 +213,7 @@
 
  if(allocated(u_p)     ) deallocate(u_p     )
  if(allocated(v_p)     ) deallocate(v_p     )
+ if(allocated(zz_p)    ) deallocate(zz_p    )
  if(allocated(pres_p)  ) deallocate(pres_p  )
  if(allocated(pi_p)    ) deallocate(pi_p    )
  if(allocated(z_p)     ) deallocate(z_p     )

Modified: branches/atmos_physics/src/core_physics/module_physics_vars.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_vars.F        2011-01-04 17:03:02 UTC (rev 668)
+++ branches/atmos_physics/src/core_physics/module_physics_vars.F        2011-01-04 17:05:49 UTC (rev 669)
@@ -44,6 +44,7 @@
     
 !... arrays related to vertical sounding:
  real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    zz_p,             &amp;!
     pres_p,           &amp;!pressure                                                         [Pa].
     pi_p,             &amp;!(p_phy/p0)**(r_d/cp)                                              [-].
     z_p,              &amp;!height of layer                                                   [m].

</font>
</pre>