source: trunk/WRF.COMMON/WRFV3/external/esmf_time_f90/ESMF_TimeMgr.inc @ 3567

Last change on this file since 3567 was 2759, checked in by aslmd, 2 years ago

adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size

File size: 1.8 KB
Line 
1#if 0
2 
3Earth System Modeling Framework
4Copyright 2002-2003, University Corporation for Atmospheric Research,
5Massachusetts Institute of Technology, Geophysical Fluid Dynamics
6Laboratory, University of Michigan, National Centers for Environmental
7Prediction, Los Alamos National Laboratory, Argonne National Laboratory,
8NASA Goddard Space Flight Center.
9Licensed under the University of Illinois-NCSA license.
10
11Do not have C++ or F90 style comments in here because this file is processed
12by both C++ and F90 compilers.
13#endif
14
15#ifndef ESMF_TimeMgr_INC
16#define ESMF_TimeMgr_INC
17
18#if 0
19!BOP
20-------------------------------------------------------------------------
21
22 !DESCRIPTION:
23
24 ESMF TimeMgr include file for F90
25 The code in this file implements constants and macros for the TimeMgr...
26
27-------------------------------------------------------------------------
28!EOP
29#endif
30
31#include <ESMF_Macros.inc>
32
33#define SECONDS_PER_DAY 86400_ESMF_KIND_I8
34#define SECONDS_PER_HOUR 3600_ESMF_KIND_I8
35#define SECONDS_PER_MINUTE 60_ESMF_KIND_I8
36#define HOURS_PER_DAY 24_ESMF_KIND_I8
37
38! Note that MAX_ALARMS must match MAX_WRF_ALARMS defined in
39! ../../frame/module_domain.F !!!  Eliminate this dependence with
40! grow-as-you-go AlarmList in ESMF_Clock... 
41#define MAX_ALARMS 28
42
43! TBH:  TODO:  Hook this into the WRF build so WRF can use either "no-leap" or
44! TBH:         Gregorian calendar.  Now WRF is hard-wired to use Gregorian. 
45#undef NO_LEAP_CALENDAR
46#ifdef COUP_CSM
47#define NO_LEAP_CALENDAR
48#endif
49
50! TBH:  When NO_DT_COMPONENT_INIT is set, code that uses F95 compile-time
51! TBH:  initialization of components of derived types is not included. 
52! TBH:  Some older compilers like PGI 5.x do not support this F95
53! TBH:  feature.
54#ifdef NO_LEAP_CALENDAR
55#undef NO_DT_COMPONENT_INIT
56#else
57#define NO_DT_COMPONENT_INIT
58#endif
59
60#endif
Note: See TracBrowser for help on using the repository browser.