wrf_message.F90 Source File


Source Code

SUBROUTINE wrf_message( str )
  IMPLICIT NONE
  CHARACTER*(*) str
  write(6,*) str
END SUBROUTINE wrf_message