1 |
C $Header: /u/gcmpack/MITgcm/pkg/longstep/LONGSTEP_PARAMS.h,v 1.1 2009/06/26 23:10:09 jahn Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_LONGSTEP |
5 |
|
6 |
CBOP |
7 |
C !ROUTINE: LONGSTEP_PARAMS.h |
8 |
C !INTERFACE: |
9 |
C #include LONGSTEP_PARAMS.h |
10 |
|
11 |
C !DESCRIPTION: |
12 |
C Contains parameters for long tracer time step. |
13 |
|
14 |
CEOP |
15 |
|
16 |
C COMMON /LONGSTEP_PARAMS/ LONGSTEP parameters: |
17 |
C LS_nIter :: number of dynamics time steps between ptracer steps |
18 |
C LS_whenToSample :: when to sample dynamical fields for the longstep average |
19 |
C 0 - at beginning of timestep (reproduces offline results) |
20 |
C 1 - after first THERMODYNAMICS but before DYNAMICS |
21 |
C (use use old U,V,W for advection, but new T,S for GCHEM if |
22 |
C staggerTimeStep=.FALSE.; reproduces online with |
23 |
C staggerTimeStep=.FALSE. for LS_nIter=1) |
24 |
C 2 - after DYNAMICS and second THERMODYNAMICS |
25 |
C (use new U,V,W and T,S; reproduces online with |
26 |
C staggerTimeStep=.TRUE. for LS_nIter=1) |
27 |
|
28 |
INTEGER LS_nIter, LS_whenToSample |
29 |
LOGICAL LS_usePmEpR |
30 |
COMMON /LONGSTEP_PARAMS/ LS_nIter, LS_whenToSample, LS_usePmEpR |
31 |
|
32 |
#endif /* ALLOW_LONGSTEP */ |
33 |
|