<p><b>laura@ucar.edu</b> 2012-01-31 12:52:41 -0700 (Tue, 31 Jan 2012)</p><p>not needed anymore, hence removed.<br>
</p><hr noshade><pre><font color="gray">Deleted: branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_wrf_error.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_wrf_error.F        2012-01-31 19:24:21 UTC (rev 1438)
+++ branches/atmos_physics/src/core_atmos_physics/physics_wrf/module_wrf_error.F        2012-01-31 19:52:41 UTC (rev 1439)
@@ -1,120 +0,0 @@
-!WRF:DRIVER_LAYER:UTIL
-!
-
-MODULE module_wrf_error
-  INTEGER           :: wrf_debug_level = 0
-  CHARACTER*256     :: wrf_err_message
-!$OMP THREADPRIVATE (wrf_err_message)
-CONTAINS
-
-  LOGICAL FUNCTION wrf_at_debug_level ( level )
-    IMPLICIT NONE
-    INTEGER , INTENT(IN) :: level
-    wrf_at_debug_level = ( level .LE. wrf_debug_level )
-    RETURN
-  END FUNCTION wrf_at_debug_level
-
-  SUBROUTINE init_module_wrf_error
-  END SUBROUTINE init_module_wrf_error
-
-END MODULE module_wrf_error
-
-SUBROUTINE wrf_message( str )
-#ifdef ESMFIO
-  USE ESMF
-#endif
-  IMPLICIT NONE
-  CHARACTER*(*) str
-#if defined( DM_PARALLEL ) &amp;&amp; ! defined( STUBMPI) 
-  write(0,*) TRIM(str)
-# ifdef _WIN32
-  FLUSH(0)
-# endif
-#endif
-#ifdef ESMFIO
-  CALL ESMF_LogWrite(TRIM(str),ESMF_LOGMSG_INFO)
-#endif
-  print*, TRIM(str)
-END SUBROUTINE wrf_message
-
-! intentionally write to stderr only
-SUBROUTINE wrf_message2( str )
-#ifdef ESMFIO
-  USE ESMF
-#endif
-  IMPLICIT NONE
-  CHARACTER*(*) str
-  write(0,*) str
-# ifdef _WIN32
-  FLUSH(0)
-# endif
-#ifdef ESMFIO
-  CALL ESMF_LogWrite(TRIM(str),ESMF_LOGMSG_INFO)
-#endif
-END SUBROUTINE wrf_message2
-
-SUBROUTINE wrf_error_fatal3( file_str, line, str )
-  USE module_wrf_error
-#ifdef ESMFIO
-! 5.2.0r  USE ESMF_Mod
-  USE ESMF
-#endif
-  IMPLICIT NONE
-  CHARACTER*(*) file_str
-  INTEGER , INTENT (IN) :: line  ! only print file and line if line &gt; 0
-  CHARACTER*(*) str
-  CHARACTER*256 :: line_str
-
-  write(line_str,'(i6)') line
-#if defined( DM_PARALLEL ) &amp;&amp; ! defined( STUBMPI )
-  CALL wrf_message( '-------------- FATAL CALLED ---------------' )
-  ! only print file and line if line is positive
-  IF ( line &gt; 0 ) THEN
-    CALL wrf_message( 'FATAL CALLED FROM FILE:  '//file_str//'  LINE:  '//TRIM(line_str) )
-  ENDIF
-  CALL wrf_message( str )
-  CALL wrf_message( '-------------------------------------------' )
-#else
-  CALL wrf_message2( '-------------- FATAL CALLED ---------------' )
-  ! only print file and line if line is positive
-  IF ( line &gt; 0 ) THEN
-    CALL wrf_message( 'FATAL CALLED FROM FILE:  '//file_str//'  LINE:  '//TRIM(line_str) )
-  ENDIF
-  CALL wrf_message2( str )
-  CALL wrf_message2( '-------------------------------------------' )
-#endif
-#ifdef ESMFIO
-! 5.2.0r  CALL esmf_finalize(terminationflag=ESMF_ABORT)
-  CALL esmf_finalize(endflag=ESMF_END_ABORT)
-#endif
-  CALL wrf_abort
-END SUBROUTINE wrf_error_fatal3
-
-SUBROUTINE wrf_error_fatal( str )
-  USE module_wrf_error
-  IMPLICIT NONE
-  CHARACTER*(*) str
-  CALL wrf_error_fatal3 ( ' ', 0, str )
-END SUBROUTINE wrf_error_fatal
-
-! Check to see if expected value == actual value
-! If not, print message and exit.  
-SUBROUTINE wrf_check_error( expected, actual, str, file_str, line )
-  USE module_wrf_error
-  IMPLICIT NONE
-  INTEGER , INTENT (IN) :: expected
-  INTEGER , INTENT (IN) :: actual
-  CHARACTER*(*) str
-  CHARACTER*(*) file_str
-  INTEGER , INTENT (IN) :: line
-  CHARACTER (LEN=512)   :: rc_str
-  CHARACTER (LEN=512)   :: str_with_rc
-
-  IF ( expected .ne. actual ) THEN
-    WRITE (rc_str,*) '  Routine returned error code = ',actual
-    str_with_rc = TRIM(str // rc_str)
-    CALL wrf_error_fatal3 ( file_str, line, str_with_rc )
-  ENDIF
-END SUBROUTINE wrf_check_error
-
-

</font>
</pre>