<p><b>laura@ucar.edu</b> 2011-01-13 16:38:37 -0700 (Thu, 13 Jan 2011)</p><p>added utility module for physics<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_physics/module_physics_utilities.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_utilities.F                                (rev 0)
+++ branches/atmos_physics/src/core_physics/module_physics_utilities.F        2011-01-13 23:38:37 UTC (rev 691)
@@ -0,0 +1,58 @@
+!=============================================================================================
+ module module_physics_utilities
+
+ implicit none
+ private
+ public:: physics_error_fatal, &amp;
+          physics_message
+
+ contains
+
+!=============================================================================================
+ subroutine physics_message(str)
+!=============================================================================================
+
+!input arguments:
+ character(len=*),intent(in):: str
+
+!---------------------------------------------------------------------------------------------
+
+#ifdef _MPI
+ write(0,*) trim(str)
+#endif
+ print*,trim(str)
+
+ end subroutine physics_message
+
+!=============================================================================================
+ subroutine physics_error_fatal(istat,str)
+!=============================================================================================
+
+!input arguments:
+ character(len=*),intent(in):: str
+ integer,intent(in):: istat
+
+!---------------------------------------------------------------------------------------------
+
+ write(0,*) istat
+ write(0,*)
+ write(0,*) ( '------------------------- FATAL CALLED -------------------------')
+ write(0,*) trim(str)
+
+ error: select case(istat)
+
+    case(-1)
+       write(0,*) 'reached end of file'
+    case(1:)
+       write(0,*) 'file does not exist'
+    case default
+
+ end select error
+ stop ' MPAS core_physics abort'
+ write(0,*)
+ 
+ end subroutine physics_error_fatal
+
+!=============================================================================================
+ end module module_physics_utilities
+!=============================================================================================

</font>
</pre>