1 integer function wrf_sizeof_integer()
4 wrf_sizeof_integer=storage_size(i)
5 end function wrf_sizeof_integer
7 real function wrf_sizeof_real()
10 wrf_sizeof_real=storage_size(i)
11 end function wrf_sizeof_real
13 subroutine wrf_debug(n,s)
17 if(n<2) print
'(A)',trim(s)
18 end subroutine wrf_debug
20 subroutine wrf_message(s)
24 end subroutine wrf_message
26 subroutine wrf_error_fatal(s)
31 write(0,
'(A)')
'FATAL ERROR IN WRF DURING POST'
32 write(0,
'(A)')
'wrf_error_fatal called with mesage:'
33 write(0,
'(A)') trim(s)
34 call mpi_abort(mpi_comm_world,1,i)
36 end subroutine wrf_error_fatal