<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 ) && ! 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 > 0
- CHARACTER*(*) str
- CHARACTER*256 :: line_str
-
- write(line_str,'(i6)') line
-#if defined( DM_PARALLEL ) && ! defined( STUBMPI )
- CALL wrf_message( '-------------- FATAL CALLED ---------------' )
- ! only print file and line if line is positive
- IF ( line > 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 > 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>