<p><b>laura@ucar.edu</b> 2012-01-07 18:24:17 -0700 (Sat, 07 Jan 2012)</p><p>minor changes<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_date_time.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_date_time.F        2012-01-07 01:18:10 UTC (rev 1318)
+++ branches/atmos_physics/src/core_physics/module_physics_date_time.F        2012-01-08 01:24:17 UTC (rev 1319)
@@ -96,7 +96,7 @@
 
  write(0,*)
  write(0,*) '--- enter subroutine monthly_interp_to_date:'
- write(0,*) '--- current_date =',date_str
+ write(0,*) '--- current_date  = ',date_str
 
  write(day15,fmt='(I2.2)') 15
  do l = 1 , 12
@@ -129,8 +129,8 @@
              month2 = month1 + 1
           endif
           if(n == 1) then
-             write(0,*) '--- month1=',month1
-             write(0,*) '--- month2=',month2
+             write(0,*) '--- month1 =',month1
+             write(0,*) '--- month2 =',month2
           endif
           field_out(n) = ( field_in(month2,n) * (target_date - middle(l))    &amp;
                        +   field_in(month1,n) * (middle(l+1) - target_date)) &amp;

Modified: branches/atmos_physics/src/core_physics/module_physics_initialize_real.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_initialize_real.F        2012-01-07 01:18:10 UTC (rev 1318)
+++ branches/atmos_physics/src/core_physics/module_physics_initialize_real.F        2012-01-08 01:24:17 UTC (rev 1319)
@@ -425,8 +425,8 @@
  nCells        = mesh % nCells
  nSoilLevels   = mesh % nSoilLevels
  nFGSoilLevels = mesh % nFGSoilLevels
- write(0,*) 'nSoilLevels  =',nSoilLevels
- write(0,*) 'nFGSoilLevels=',nFGSoilLevels
+ write(0,*) 'nSoilLevels   =',nSoilLevels
+ write(0,*) 'nFGSoilLevels =',nFGSoilLevels
 
  landmask =&gt; mesh % landmask % array
 

</font>
</pre>