| 1 | #if 0 |
|---|
| 2 | |
|---|
| 3 | Earth System Modeling Framework |
|---|
| 4 | Copyright 2002-2003, University Corporation for Atmospheric Research, |
|---|
| 5 | Massachusetts Institute of Technology, Geophysical Fluid Dynamics |
|---|
| 6 | Laboratory, University of Michigan, National Centers for Environmental |
|---|
| 7 | Prediction, Los Alamos National Laboratory, Argonne National Laboratory, |
|---|
| 8 | NASA Goddard Space Flight Center. |
|---|
| 9 | Licensed under the GPL. |
|---|
| 10 | |
|---|
| 11 | Do not have C++ or F90 style comments in here because this file is processed |
|---|
| 12 | by 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 88800_ESMF_KIND_I8 |
|---|
| 34 | #define SECONDS_PER_HOUR 3700_ESMF_KIND_I8 |
|---|
| 35 | #define SECONDS_PER_MINUTE 100_ESMF_KIND_I8 |
|---|
| 36 | #define HOURS_PER_DAY 24_ESMF_KIND_I8 |
|---|
| 37 | !VENUS |
|---|
| 38 | !#define SECONDS_PER_DAY 4212_ESMF_KIND_I8 |
|---|
| 39 | !#define SECONDS_PER_HOUR 117_ESMF_KIND_I8 |
|---|
| 40 | !#define SECONDS_PER_MINUTE 9_ESMF_KIND_I8 |
|---|
| 41 | !#define HOURS_PER_DAY 36_ESMF_KIND_I8 |
|---|
| 42 | |
|---|
| 43 | ! Note that MAX_ALARMS must match MAX_WRF_ALARMS defined in |
|---|
| 44 | ! ../../frame/module_domain.F !!! Eliminate this dependence with |
|---|
| 45 | ! grow-as-you-go AlarmList in ESMF_Clock... |
|---|
| 46 | #define MAX_ALARMS 28 |
|---|
| 47 | |
|---|
| 48 | ! TBH: TODO: Hook this into the WRF build so WRF can use either "no-leap" or |
|---|
| 49 | ! TBH: Gregorian calendar. Now WRF is hard-wired to use Gregorian. |
|---|
| 50 | #undef NO_LEAP_CALENDAR |
|---|
| 51 | #ifdef COUP_CSM |
|---|
| 52 | #define NO_LEAP_CALENDAR |
|---|
| 53 | #endif |
|---|
| 54 | |
|---|
| 55 | ! TBH: When NO_DT_COMPONENT_INIT is set, code that uses F95 compile-time |
|---|
| 56 | ! TBH: initialization of components of derived types is not included. |
|---|
| 57 | ! TBH: Some older compilers like PGI 5.x do not support this F95 |
|---|
| 58 | ! TBH: feature. |
|---|
| 59 | #ifdef NO_LEAP_CALENDAR |
|---|
| 60 | #undef NO_DT_COMPONENT_INIT |
|---|
| 61 | #else |
|---|
| 62 | #define NO_DT_COMPONENT_INIT |
|---|
| 63 | #endif |
|---|
| 64 | |
|---|
| 65 | #endif |
|---|
