parkind1.F90

Go to the documentation of this file.

! *****************************COPYRIGHT*******************************
! (C) Crown copyright Met Office. All rights reserved.
! For further details please refer to the file COPYRIGHT.txt
! which you should have received as part of this distribution.
! *****************************COPYRIGHT*******************************
 
MODULE parkind1
 
!
! Description:
!   Dummy module to replace the DrHook library. Defines data types
!   which would otherwise be declared by the DrHook library.
!
! Owner: UM System team
!
! Code description:
!   Language: Fortran 90.
!   This code is written to UM programming standards version 8.1.
 
 
  IMPLICIT NONE
 
  INTEGER, PARAMETER :: jpim = selected_int_kind(9) 
  INTEGER, PARAMETER :: jprb = selected_real_kind(13,300)
 
END MODULE parkind1