<p><b>laura@ucar.edu</b> 2011-10-26 14:20:18 -0600 (Wed, 26 Oct 2011)</p><p>minor updates<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        2011-10-26 20:19:30 UTC (rev 1142)
+++ branches/atmos_physics/src/core_physics/module_physics_date_time.F        2011-10-26 20:20:18 UTC (rev 1143)
@@ -3,7 +3,8 @@
 
  implicit none
  private
- public:: get_julgmt,             &amp;
+ public:: get_current_date,       &amp;
+          get_julgmt,             &amp;
           monthly_interp_to_date, &amp;
           monthly_min_max
 
@@ -12,6 +13,17 @@
  contains
 
 !=============================================================================================
+ subroutine get_current_date
+!=============================================================================================
+
+!temporary subroutine to provide the date at which the forecast begins.right now, that date is
+!hard-wired. This will change when the time manager is in place.
+
+ current_date = '2010-10-23_00'
+
+ end subroutine get_current_date
+
+!=============================================================================================
  subroutine get_julgmt(date_str,julyr,julday,gmt)
 !=============================================================================================
 

Modified: branches/atmos_physics/src/core_physics/module_physics_utilities.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_utilities.F        2011-10-26 20:19:30 UTC (rev 1142)
+++ branches/atmos_physics/src/core_physics/module_physics_utilities.F        2011-10-26 20:20:18 UTC (rev 1143)
@@ -6,7 +6,7 @@
  public:: physics_error_fatal, &amp;
           physics_message
 
- character(len=120),public:: mpas_err_message
+ character(len=256),public:: mpas_err_message
 
  contains
 
@@ -39,7 +39,6 @@
  write(0,*)
  write(0,*) ( '------------------------------ FATAL CALLED ------------------------------')
  write(0,*) trim(str)
- print*, trim(str)
  stop ' MPAS core_physics abort'
  
  end subroutine physics_error_fatal

</font>
</pre>