yomprism.F90

Go to the documentation of this file.

!**** PRISM_DUMMY_MOD.F90
!
!     Purpose.
!     --------
!
!     
!     Contains   
!     ----------
!     
!      MODULE PRISM_CONSTANTS 
!
!     Reference:
!     ---------
!       S. Valcke, 2006: OASIS4 User Guide  
!       PRISM Support Initiative Report No 3,
!       CERFACS, Toulouse, France, 64 pp.
!
!     Author:
!     -------
!       Johannes Flemming 
!
!     Modifications.
!     --------------
!      F. Vana  05-Mar-2015  Support for single precision

!**************************************************************************

MODULE yomprism

USE parkind1 , ONLY : jprd, jpim
IMPLICIT NONE
SAVE
  
   TYPE prism_time_struct
      REAL(KIND=JPRD)   :: second
      INTEGER(KIND=JPIM)            :: minute
      INTEGER(KIND=JPIM)            :: hour
      INTEGER(KIND=JPIM)            :: day
      INTEGER(KIND=JPIM)            :: month
      INTEGER(KIND=JPIM)            :: year
   END TYPE prism_time_struct

 
   TYPE(prism_time_struct) :: prism_initial_date
   TYPE(prism_time_struct) :: prism_jobstart_date
   TYPE(prism_time_struct) :: prism_jobend_date

   INTEGER(KIND=JPIM), PARAMETER :: prism_gridless                = 8
   INTEGER(KIND=JPIM), PARAMETER :: prism_gaussreduced_regvrt   = 9
   INTEGER(KIND=JPIM), PARAMETER :: prism_double_precision =  5
   INTEGER(KIND=JPIM), PARAMETER :: prism_undefined = -65535

END MODULE yomprism