!======================================================================
!BOP
! !MODULE: modulename
!
! !INTERFACE:
MODULE modulename
!
! !USES:
   USE module1,            ONLY: variable
   USE module2,            ONLY: function
     IMPLICIT NONE
     PRIVATE
! !PUBLIC TYPES:
   PUBLIC  :: meteofile    ! check expression
!
! !PUBLIC MEMBER FUNCTIONS:
   PUBLIC :: io_write_3d ! write a 3D file
!
! !PUBLIC DATA MEMBERS:
   PUBLIC :: P
!
! !DESCRIPTION:
!
! This is a sample module illustrating the use of ProTex.
! ProTex is the convention for documentation in PRISM.
!
! !REMARKS:
! Contact: Peter van Velthoven, KNMI
!
! !SEE ALSO:
! E. Guilyardi, R. Budich, G. Brasseur and G. Komen, eds.:
! Prism System Specification Handbook, Version 1.0 (2003).
!
! !REVISION HISTORY:
!
! 04.02.16 P. van Velthoven: Made first version of this example.
!
!EOP
!----------------------------------------------------------------------
! $Id: subroutine.f90,v 1.0 2004/02/15 19:31:12 velthove Exp $
! $Author: velthove $
!----------------------------------------------------------------------
! The above lines specify the cvs-version
   REAL :: P
   TYPE meteofile
      CHARACTER(LEN=100) :: fname
   END TYPE meteofile
CONTAINS
   SUBROUTINE io_write_3d
   END SUBROUTINE io_write_3d

END MODULE modulename