<p><b>laura@ucar.edu</b> 2011-01-13 16:37:51 -0700 (Thu, 13 Jan 2011)</p><p>remove module<br>
</p><hr noshade><pre><font color="gray">Deleted: branches/atmos_physics/src/core_physics/module_physics_error.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_error.F        2011-01-13 23:36:43 UTC (rev 689)
+++ branches/atmos_physics/src/core_physics/module_physics_error.F        2011-01-13 23:37:51 UTC (rev 690)
@@ -1,41 +0,0 @@
-!=============================================================================================
- module module_physics_error
-
- implicit none
- private
- public:: physics_error_fatal
-
- contains
-
-!=============================================================================================
- 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_error
-!=============================================================================================

</font>
</pre>