00001 ! ----------------- PRISM module file prism_constants.F90 ------------------- 00002 ! 00003 ! $Id: prism_constants.F90 2325 2010-04-21 15:00:07Z valcke $ 00004 ! $Author: valcke $ 00005 ! 00006 !----------------------------------------------------------------------- 00007 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00008 ! Copyright 2006-2010, SGI Germany, Munich, Germany. 00009 ! Copyright 2006-2010, NEC Europe Ltd., London, UK. 00010 ! All rights reserved. Use is subject to OASIS4 license terms. 00011 !----------------------------------------------------------------------- 00012 !BOP 00013 ! 00014 ! !MODULE: PRISM_Constants 00015 ! 00016 ! !INTERFACE: 00017 ! 00018 module PRISM_Constants 00019 ! 00020 ! !USES: 00021 ! 00022 #include "prism.inc" 00023 ! 00024 ! PRISM_Time_Struct type 00025 ! 00026 Type PRISM_Time_Struct 00027 00028 Double Precision :: second 00029 integer :: minute 00030 integer :: hour 00031 integer :: day 00032 integer :: month 00033 integer :: year 00034 00035 End Type PRISM_Time_Struct 00036 ! 00037 ! !DESCRIPTION: 00038 ! 00039 ! Via prism.inc all PRISM named parameters are defined here. 00040 ! 00041 ! !SEE ALSO: 00042 ! 00043 ! module PRISM 00044 ! 00045 ! !REVISION HISTORY: 00046 ! 00047 ! Date Programmer Description 00048 ! ---------- ---------- ----------- 00049 ! 01.12.03 H. Ritzdorf created 00050 ! 06.02.09 S. Valcke split prism.F90 and prism_constants.F90 00051 ! 00052 ! !PUBLIC TYPES: 00053 00054 Type(PRISM_Time_Struct) :: PRISM_Initial_date 00055 Type(PRISM_Time_Struct) :: PRISM_Jobstart_date 00056 Type(PRISM_Time_Struct) :: PRISM_Jobend_date 00057 00058 integer :: PRISM_calendar_type 00059 ! 00060 !EOP 00061 !----------------------------------------------------------------------- 00062 00063 end module PRISM_Constants
1.6.1